home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1068 < prev    next >
Encoding:
Text File  |  1994-01-25  |  2.4 KB  |  154 lines
  1. /makepattern defed /xt xdf
  2. xt not {/yt save def} if
  3. userdict begin /fhpatdict 12 dict def end
  4. fhpatdict begin
  5.  /PatternType 1 def
  6.  /PaintType 1 def 
  7.  /TilingType 1 def
  8.  /BBox [0 0 8 8] def
  9.  /XStep 8 def
  10.  /YStep 8 def
  11.  /PatMtx [1 0 0 -1 0 8] def
  12.  /PatIMtx [1 0 0 1 0 0] def
  13. /PaintProc
  14. {begin FHPatColor vc 8 8 true PatMtx PatData imagemask end} bdf
  15.  /FHPatColor [0 0 0 0] def
  16.  
  17.  
  18. end
  19. /macpatorient{1 0 dtransform 0 eq exch 0 ne and}bdf
  20. /veccalc { dtransform round exch round exch idtransform dup mul exch dup mul exch add sqrt } bdf
  21. gsave 
  22. macpatorient 
  23. initmatrix
  24. 0 0 transform 
  25. 2 copy 
  26. round exch round exch
  27. 2 index sub exch 3 index sub exch
  28. idtransform translate
  29. pop pop
  30. 1 0 veccalc 0 1 veccalc 
  31. scale
  32. {0}{-90}ifelse
  33. rotate
  34. matrix currentmatrix
  35. /PATmtx xdf
  36. grestore
  37. /pF{
  38.  gsave 1 setgray filler grestore
  39.  fhpatdict begin  
  40.  /PatData xdf  
  41.  /FHPatColor xdf  
  42.  end
  43.  save    
  44.  PATmtx setmatrix 
  45.  fhpatdict dup   
  46.  /PatIMtx get   
  47.  PATmp     
  48.  PATsp     
  49.  /clipper load /eoclip load eq PATfill
  50.  restore
  51. }bdf
  52. /pS{
  53.  fhpatdict begin  
  54.  /PatData xdf  
  55.  /FHPatColor xdf  
  56.  end
  57.  save
  58.  PATprestroke    
  59.  PATmtx setmatrix
  60.  gsave 1 setgray stroke grestore
  61.  fhpatdict dup 
  62.  /PatIMtx get 
  63.  PATmp 
  64.  PATsp 
  65.  PATstroke
  66.  restore
  67. }bdf
  68. xt not {yt restore} if
  69. xt {/yt save def} if
  70. /macpatstring 8 string def
  71. /macpattint 0 def
  72. /macpatcol [] def
  73. /macpatangle{1 0 matrix defaultmatrix dtransform exch atan}bdf
  74. /macpatorient{1 0 dtransform 0 eq exch 0 ne and}bdf
  75. /macpatcountbits 
  76. {
  77.  0 exch     
  78.  {
  79. cvi 
  80. 0 1 8 
  81. { 
  82. pop
  83. dup 1 and 
  84. 0 ne 
  85. {
  86. exch 
  87. 1 add 
  88. exch 
  89. } if
  90. -1 bitshift 
  91. } for
  92. pop 
  93.  }
  94.  forall
  95. }bdf
  96. /macpatset
  97. {
  98.  macpatstring copy pop 
  99.  9.375 
  100.  macpatangle 
  101.  macpatorient not{-90 add}if
  102.  {
  103. 1 add 4 mul cvi macpatstring exch get exch
  104. 1 add 4 mul cvi 7 sub bitshift 1 and 
  105. inverted? {1 exch sub} if
  106.  }
  107.  setscreen
  108.  
  109.  64 macpatstring macpatcountbits sub 64 div
  110.  inverted? {.9921875 exch sub} if
  111.  /macpattint xdf
  112.  
  113.  
  114.  {} st
  115.  fhnumcolors 1 ne
  116.  {
  117. cvc dup length array copy /macpatcol xdf 
  118. /macpattint 1 macpattint sub def 
  119. macpatcol length 4 eq
  120. {
  121. 0 1 3
  122. {
  123. macpatcol exch 2 copy
  124. get .25 lt{0}{macpattint}ifelse put
  125. }for
  126. }
  127. {
  128. macpatcol dup 0 get .25 lt{0}{macpattint}ifelse 0 exch put
  129. }ifelse 
  130. macpatcol vc
  131.  }
  132.  {
  133. currentgray 1 ne {macpattint setseparationgray} if
  134.  } 
  135.  ifelse
  136. }bdf
  137. /pF{
  138.  gsave 
  139.  exch vc
  140.  macpatset 
  141.  {filler}fp 
  142.  grestore
  143. }bdf
  144. /pS{
  145.  gsave 
  146.  exch vc
  147.  macpatset 
  148.  {stroke}fp 
  149.  grestore
  150. }bdf
  151. xt {yt restore} if
  152. /pf{closepath pF}bdf
  153. /ps{closepath pS}bdf